home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Claris / US English / ClarisDraw / ClarisDraw-PPC / ClarisDraw 1.0 Trial PwrMac / ClarisDraw 1.0 Trial PwrMac.rsrc / PREC_103 < prev    next >
Text File  |  1994-08-16  |  889b  |  45 lines
  1. %PostScript Hack by Mike Brors 12/7/90
  2. /DisableNextSetRGBColor
  3.     {
  4.     userdict begin
  5.     /setrgbcolor 
  6.         {
  7.         pop
  8.         pop
  9.         pop
  10.         userdict begin
  11.         /setrgbcolor systemdict /setrgbcolor get def
  12.         end
  13.         } def
  14.     end
  15. } bind def
  16. /bcarray where {
  17.     pop
  18.     bcarray 2 {
  19.         /da 4 ps div def
  20.         df setfont gsave cs wi
  21.         1 index 0 ne{exch da add exch}if grestore setcharwidth
  22.         cs 0 0 smc da 0 smc da da smc 0 da smc c
  23.         gray
  24.         { gl}
  25.         {1 setgray}ifelse
  26.         da 2. div dup moveto show
  27.     }bind put
  28. } if
  29. %
  30. % Used to snap to device pixels, 1/4th of the pixel in.
  31. /stp {  % x y  pl  x y                % Snap To Pixel, pixel  (auto stroke adjust)
  32.     transform
  33.     0.25 sub round 0.25 add exch
  34.     0.25 sub round 0.25 add exch
  35.     itransform
  36. } bind def
  37.  
  38. /snapmoveto { % x y  m  -             % moveto, auto stroke adjust
  39.     stp  moveto
  40. } bind def
  41.  
  42. /snaplineto { % x y  l  -             % lineto, auto stroke adjust
  43.     stp lineto
  44. } bind def
  45.